/ BBS in a Box 12 / BBS in a box XII-1.iso / Files / Tele / C / Comet2.1.3.sit / 3270XCMD / TNStatus.c

< prev

next >

MacOS 8.1

Win98

DOS

browse contents

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 0a 54 4e 53 74 61 74 | 75 73 2e 63 00 00 00 00 |..TNStat|us.c....|
|00000010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 54 45 58 54 4d 50 53 | 20 00 00 00 00 00 00 00 |.TEXTMPS| .......|
|00000050| 00 00 00 00 00 08 ef 00 | 00 01 7e a2 2d b4 54 a2 |........|..~.-.T.|
|00000060| 2d b4 54 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |-.T.....|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 f2 0d 00 00 |........|........|
|00000080| 2f 2a 20 54 4e 53 74 61 | 74 75 73 2e 63 20 2d 2d |/* TNSta|tus.c --|
|00000090| 20 58 43 4d 44 20 74 6f | 20 67 65 74 20 54 4e 33 | XCMD to| get TN3|
|000000a0| 32 37 30 20 63 6f 6e 6e | 65 63 74 69 6f 6e 20 73 |270 conn|ection s|
|000000b0| 74 61 74 75 73 0d 09 63 | 6f 70 79 72 69 67 68 74 |tatus..c|opyright|
|000000c0| 20 31 39 38 39 20 43 6f | 72 6e 65 6c 6c 20 55 6e | 1989 Co|rnell Un|
|000000d0| 69 76 65 72 73 69 74 79 | 20 0d 2a 2f 0d 0d 0d 23 |iversity| .*/...#|
|000000e0| 69 6e 63 6c 75 64 65 20 | 3c 54 79 70 65 73 2e 68 |include |<Types.h|
|000000f0| 3e 0d 23 69 6e 63 6c 75 | 64 65 20 3c 4d 65 6d 6f |>.#inclu|de <Memo|
|00000100| 72 79 2e 68 3e 0d 23 69 | 6e 63 6c 75 64 65 20 3c |ry.h>.#i|nclude <|
|00000110| 44 65 76 69 63 65 73 2e | 68 3e 0d 23 69 6e 63 6c |Devices.|h>.#incl|
|00000120| 75 64 65 20 3c 48 79 70 | 65 72 58 43 6d 64 2e 68 |ude <Hyp|erXCmd.h|
|00000130| 3e 0d 23 69 6e 63 6c 75 | 64 65 20 3c 45 72 72 6f |>.#inclu|de <Erro|
|00000140| 72 73 2e 68 3e 0d 0d 23 | 69 6e 63 6c 75 64 65 20 |rs.h>..#|include |
|00000150| 3c 53 74 72 69 6e 67 2e | 68 3e 0d 0d 23 69 6e 63 |<String.|h>..#inc|
|00000160| 6c 75 64 65 20 22 54 4e | 64 72 76 72 2e 68 22 0d |lude "TN|drvr.h".|
|00000170| 0d 0d 70 61 73 63 61 6c | 20 76 6f 69 64 20 64 65 |..pascal| void de|
|00000180| 62 75 67 67 65 72 28 29 | 09 65 78 74 65 72 6e 20 |bugger()|.extern |
|00000190| 30 78 41 39 46 46 3b 20 | 20 20 0d 0d 0d 70 61 73 |0xA9FF; |  ...pas|
|000001a0| 63 61 6c 20 76 6f 69 64 | 20 54 4e 53 74 61 74 75 |cal void| TNStatu|
|000001b0| 73 28 68 79 63 70 29 0d | 58 43 6d 64 50 74 72 20 |s(hycp).|XCmdPtr |
|000001c0| 68 79 63 70 3b 0d 7b 0d | 09 43 6e 74 72 6c 50 61 |hycp;.{.|.CntrlPa|
|000001d0| 72 61 6d 20 64 72 76 70 | 62 3b 0d 09 53 74 72 32 |ram drvp|b;..Str2|
|000001e0| 35 35 20 70 73 74 72 3b | 0d 09 0d 09 69 66 20 28 |55 pstr;|....if (|
|000001f0| 68 79 63 70 2d 3e 70 61 | 72 61 6d 43 6f 75 6e 74 |hycp->pa|ramCount|
|00000200| 20 21 3d 20 31 29 20 7b | 0d 09 09 73 65 74 68 61 | != 1) {|...setha|
|00000210| 6e 64 28 26 68 79 63 70 | 2d 3e 72 65 74 75 72 6e |nd(&hycp|->return|
|00000220| 56 61 6c 75 65 2c 20 0d | 09 09 09 22 54 4e 53 74 |Value, .|..."TNSt|
|00000230| 61 74 75 73 20 54 4e 49 | 44 3a 20 6e 65 65 64 20 |atus TNI|D: need |
|00000240| 31 20 61 72 67 75 6d 65 | 6e 74 22 29 3b 0d 09 09 |1 argume|nt");...|
|00000250| 72 65 74 75 72 6e 3b 0d | 09 7d 0d 0d 09 48 4c 6f |return;.|.}...HLo|
|00000260| 63 6b 28 28 48 61 6e 64 | 6c 65 29 20 68 79 63 70 |ck((Hand|le) hycp|
|00000270| 2d 3e 70 61 72 61 6d 73 | 5b 30 5d 29 3b 0d 09 0d |->params|[0]);...|
|00000280| 09 5a 65 72 6f 54 6f 50 | 61 73 28 68 79 63 70 2c |.ZeroToP|as(hycp,|
|00000290| 20 2a 68 79 63 70 2d 3e | 70 61 72 61 6d 73 5b 30 | *hycp->|params[0|
|000002a0| 5d 2c 20 28 53 74 72 69 | 6e 67 50 74 72 29 20 26 |], (Stri|ngPtr) &|
|000002b0| 70 73 74 72 5b 30 5d 29 | 3b 0d 09 64 72 76 70 62 |pstr[0])|;..drvpb|
|000002c0| 2e 69 6f 43 52 65 66 4e | 75 6d 20 3d 20 28 73 68 |.ioCRefN|um = (sh|
|000002d0| 6f 72 74 29 20 53 74 72 | 54 6f 4e 75 6d 28 68 79 |ort) Str|ToNum(hy|
|000002e0| 63 70 2c 20 28 53 74 72 | 33 31 20 2a 29 20 26 70 |cp, (Str|31 *) &p|
|000002f0| 73 74 72 5b 30 5d 29 3b | 0d 09 64 72 76 70 62 2e |str[0]);|..drvpb.|
|00000300| 63 73 43 6f 64 65 20 3d | 20 48 54 4e 5f 53 54 41 |csCode =| HTN_STA|
|00000310| 54 55 53 3b 0d 09 50 42 | 43 6f 6e 74 72 6f 6c 28 |TUS;..PB|Control(|
|00000320| 28 50 61 72 6d 42 6c 6b | 50 74 72 29 20 26 64 72 |(ParmBlk|Ptr) &dr|
|00000330| 76 70 62 2c 20 28 42 6f | 6f 6c 65 61 6e 29 20 30 |vpb, (Bo|olean) 0|
|00000340| 29 3b 0d 0d 09 69 66 20 | 28 64 72 76 70 62 2e 69 |);...if |(drvpb.i|
|00000350| 6f 52 65 73 75 6c 74 29 | 20 7b 0d 09 09 2f 2a 20 |oResult)| {.../* |
|00000360| 6d 61 79 62 65 20 61 6e | 20 65 72 72 6f 72 2c 20 |maybe an| error, |
|00000370| 6d 61 79 62 65 20 61 20 | 73 74 61 74 75 73 20 72 |maybe a |status r|
|00000380| 65 73 75 6c 74 20 2a 2f | 0d 09 09 73 77 69 74 63 |esult */|...switc|
|00000390| 68 20 28 64 72 76 70 62 | 2e 69 6f 52 65 73 75 6c |h (drvpb|.ioResul|
|000003a0| 74 29 20 7b 0d 09 09 09 | 63 61 73 65 20 48 54 4e |t) {....|case HTN|
|000003b0| 52 5f 4e 4f 54 4e 3a 20 | 7b 0d 09 09 09 09 73 65 |R_NOTN: |{.....se|
|000003c0| 74 68 61 6e 64 28 26 68 | 79 63 70 2d 3e 72 65 74 |thand(&h|ycp->ret|
|000003d0| 75 72 6e 56 61 6c 75 65 | 2c 20 22 54 4e 20 69 73 |urnValue|, "TN is|
|000003e0| 20 6e 6f 74 20 72 75 6e | 6e 69 6e 67 22 29 3b 0d | not run|ning");.|
|000003f0| 09 09 09 09 62 72 65 61 | 6b 3b 0d 09 09 09 7d 0d |....brea|k;....}.|
|00000400| 09 09 09 63 61 73 65 20 | 48 54 4e 52 5f 41 43 54 |...case |HTNR_ACT|
|00000410| 49 56 45 3a 20 7b 0d 09 | 09 09 09 73 65 74 68 61 |IVE: {..|...setha|
|00000420| 6e 64 28 26 68 79 63 70 | 2d 3e 72 65 74 75 72 6e |nd(&hycp|->return|
|00000430| 56 61 6c 75 65 2c 20 22 | 54 4e 20 6e 6f 74 20 6f |Value, "|TN not o|
|00000440| 70 65 6e 65 64 22 29 3b | 0d 09 09 09 09 62 72 65 |pened");|.....bre|
|00000450| 61 6b 3b 0d 09 09 09 7d | 0d 09 09 09 63 61 73 65 |ak;....}|....case|
|00000460| 20 48 54 4e 52 5f 4f 50 | 45 4e 3a 20 7b 0d 09 09 | HTNR_OP|EN: {...|
|00000470| 09 09 73 65 74 68 61 6e | 64 28 26 68 79 63 70 2d |..sethan|d(&hycp-|
|00000480| 3e 72 65 74 75 72 6e 56 | 61 6c 75 65 2c 20 22 54 |>returnV|alue, "T|
|00000490| 4e 20 68 61 73 20 6e 6f | 20 63 6f 6e 6e 65 63 74 |N has no| connect|
|000004a0| 69 6f 6e 22 29 3b 0d 09 | 09 09 09 62 72 65 61 6b |ion");..|...break|
|000004b0| 3b 0d 09 09 09 7d 0d 09 | 09 09 63 61 73 65 20 48 |;....}..|..case H|
|000004c0| 54 4e 53 5f 52 55 4e 4e | 49 4e 47 3a 20 7b 0d 09 |TNS_RUNN|ING: {..|
|000004d0| 09 09 09 73 65 74 68 61 | 6e 64 28 26 68 79 63 70 |...setha|nd(&hycp|
|000004e0| 2d 3e 72 65 74 75 72 6e | 56 61 6c 75 65 2c 20 22 |->return|Value, "|
|000004f0| 22 29 3b 0d 09 09 09 09 | 62 72 65 61 6b 3b 0d 09 |");.....|break;..|
|00000500| 09 09 7d 0d 09 09 09 63 | 61 73 65 20 48 54 4e 53 |..}....c|ase HTNS|
|00000510| 5f 57 41 49 54 43 4f 4e | 4e 3a 20 7b 0d 09 09 09 |_WAITCON|N: {....|
|00000520| 09 73 65 74 68 61 6e 64 | 28 26 68 79 63 70 2d 3e |.sethand|(&hycp->|
|00000530| 72 65 74 75 72 6e 56 61 | 6c 75 65 2c 20 22 54 4e |returnVa|lue, "TN|
|00000540| 20 77 61 69 74 69 6e 67 | 20 66 6f 72 20 63 6f 6e | waiting| for con|
|00000550| 6e 65 63 74 69 6f 6e 22 | 29 3b 0d 09 09 09 09 62 |nection"|);.....b|
|00000560| 72 65 61 6b 3b 0d 09 09 | 09 7d 0d 09 09 09 63 61 |reak;...|.}....ca|
|00000570| 73 65 20 48 54 4e 53 5f | 57 41 49 54 4e 45 54 3a |se HTNS_|WAITNET:|
|00000580| 20 7b 0d 09 09 09 09 73 | 65 74 68 61 6e 64 28 26 | {.....s|ethand(&|
|00000590| 68 79 63 70 2d 3e 72 65 | 74 75 72 6e 56 61 6c 75 |hycp->re|turnValu|
|000005a0| 65 2c 20 22 54 4e 20 77 | 61 69 74 69 6e 67 20 6f |e, "TN w|aiting o|
|000005b0| 6e 20 6e 65 74 77 6f 72 | 6b 22 29 3b 0d 09 09 09 |n networ|k");....|
|000005c0| 09 62 72 65 61 6b 3b 0d | 09 09 09 7d 0d 09 09 09 |.break;.|...}....|
|000005d0| 63 61 73 65 20 48 54 4e | 53 5f 4e 45 57 44 41 54 |case HTN|S_NEWDAT|
|000005e0| 41 3a 20 7b 0d 09 09 09 | 09 73 65 74 68 61 6e 64 |A: {....|.sethand|
|000005f0| 28 26 68 79 63 70 2d 3e | 72 65 74 75 72 6e 56 61 |(&hycp->|returnVa|
|00000600| 6c 75 65 2c 20 22 4e 65 | 77 20 44 61 74 61 22 29 |lue, "Ne|w Data")|
|00000610| 3b 0d 09 09 09 09 62 72 | 65 61 6b 3b 0d 09 09 09 |;.....br|eak;....|
|00000620| 7d 0d 09 09 09 63 61 73 | 65 20 48 54 4e 53 5f 4b |}....cas|e HTNS_K|
|00000630| 42 44 4c 4f 43 4b 3a 20 | 7b 0d 09 09 09 09 73 65 |BDLOCK: |{.....se|
|00000640| 74 68 61 6e 64 28 26 68 | 79 63 70 2d 3e 72 65 74 |thand(&h|ycp->ret|
|00000650| 75 72 6e 56 61 6c 75 65 | 2c 20 22 4b 65 79 62 6f |urnValue|, "Keybo|
|00000660| 61 72 64 20 6c 6f 63 6b | 65 64 22 29 3b 0d 09 09 |ard lock|ed");...|
|00000670| 09 09 62 72 65 61 6b 3b | 0d 09 09 09 7d 0d 09 09 |..break;|....}...|
|00000680| 09 63 61 73 65 20 48 54 | 4e 53 5f 4d 4f 52 45 3a |.case HT|NS_MORE:|
|00000690| 20 7b 0d 09 09 09 09 73 | 65 74 68 61 6e 64 28 26 | {.....s|ethand(&|
|000006a0| 68 79 63 70 2d 3e 72 65 | 74 75 72 6e 56 61 6c 75 |hycp->re|turnValu|
|000006b0| 65 2c 20 22 4d 6f 72 65 | 2e 2e 2e 22 29 3b 0d 09 |e, "More|...");..|
|000006c0| 09 09 09 62 72 65 61 6b | 3b 0d 09 09 09 7d 0d 09 |...break|;....}..|
|000006d0| 09 09 63 61 73 65 20 48 | 54 4e 53 5f 48 4f 4c 44 |..case H|TNS_HOLD|
|000006e0| 49 4e 47 3a 20 7b 0d 09 | 09 09 09 73 65 74 68 61 |ING: {..|...setha|
|000006f0| 6e 64 28 26 68 79 63 70 | 2d 3e 72 65 74 75 72 6e |nd(&hycp|->return|
|00000700| 56 61 6c 75 65 2c 20 22 | 48 4f 4c 44 49 4e 47 22 |Value, "|HOLDING"|
|00000710| 29 3b 0d 09 09 09 09 62 | 72 65 61 6b 3b 0d 09 09 |);.....b|reak;...|
|00000720| 09 7d 0d 09 09 09 63 61 | 73 65 20 48 54 4e 53 5f |.}....ca|se HTNS_|
|00000730| 43 50 3a 20 7b 0d 09 09 | 09 09 73 65 74 68 61 6e |CP: {...|..sethan|
|00000740| 64 28 26 68 79 63 70 2d | 3e 72 65 74 75 72 6e 56 |d(&hycp-|>returnV|
|00000750| 61 6c 75 65 2c 20 22 43 | 50 22 29 3b 0d 09 09 09 |alue, "C|P");....|
|00000760| 09 62 72 65 61 6b 3b 0d | 09 09 09 7d 0d 09 09 09 |.break;.|...}....|
|00000770| 63 61 73 65 20 48 54 4e | 53 5f 56 4d 52 45 41 44 |case HTN|S_VMREAD|
|00000780| 3a 20 7b 0d 09 09 09 09 | 73 65 74 68 61 6e 64 28 |: {.....|sethand(|
|00000790| 26 68 79 63 70 2d 3e 72 | 65 74 75 72 6e 56 61 6c |&hycp->r|eturnVal|
|000007a0| 75 65 2c 20 22 56 4d 20 | 52 45 41 44 22 29 3b 0d |ue, "VM |READ");.|
|000007b0| 09 09 09 09 62 72 65 61 | 6b 3b 0d 09 09 09 7d 0d |....brea|k;....}.|
|000007c0| 09 09 09 63 61 73 65 20 | 62 61 64 55 6e 69 74 45 |...case |badUnitE|
|000007d0| 72 72 3a 20 7b 0d 09 09 | 09 09 73 65 74 68 61 6e |rr: {...|..sethan|
|000007e0| 64 28 26 68 79 63 70 2d | 3e 72 65 74 75 72 6e 56 |d(&hycp-|>returnV|
|000007f0| 61 6c 75 65 2c 20 22 54 | 4e 49 44 20 69 73 20 69 |alue, "T|NID is i|
|00000800| 6e 63 6f 72 72 65 63 74 | 22 29 3b 0d 09 09 09 09 |ncorrect|");.....|
|00000810| 62 72 65 61 6b 3b 0d 09 | 09 09 7d 0d 09 09 09 64 |break;..|..}....d|
|00000820| 65 66 61 75 6c 74 3a 20 | 7b 0d 09 09 09 09 73 65 |efault: |{.....se|
|00000830| 74 68 61 6e 64 28 26 68 | 79 63 70 2d 3e 72 65 74 |thand(&h|ycp->ret|
|00000840| 75 72 6e 56 61 6c 75 65 | 2c 20 22 55 6e 6b 6e 6f |urnValue|, "Unkno|
|00000850| 77 6e 20 65 72 72 6f 72 | 22 29 3b 0d 09 09 09 09 |wn error|");.....|
|00000860| 62 72 65 61 6b 3b 0d 09 | 09 09 7d 0d 09 09 7d 0d |break;..|..}...}.|
|00000870| 09 7d 0d 09 48 55 6e 6c | 6f 63 6b 28 28 48 61 6e |.}..HUnl|ock((Han|
|00000880| 64 6c 65 29 20 68 79 63 | 70 2d 3e 70 61 72 61 6d |dle) hyc|p->param|
|00000890| 73 5b 30 5d 29 3b 0d 7d | 0d 0d 0d 73 65 74 68 61 |s[0]);.}|...setha|
|000008a0| 6e 64 28 74 68 61 6e 64 | 2c 20 73 74 72 29 0d 48 |nd(thand|, str).H|
|000008b0| 61 6e 64 6c 65 20 2a 20 | 74 68 61 6e 64 3b 0d 63 |andle * |thand;.c|
|000008c0| 68 61 72 20 2a 20 73 74 | 72 3b 0d 7b 0d 09 69 66 |har * st|r;.{..if|
|000008d0| 20 28 2a 74 68 61 6e 64 | 20 3d 3d 20 4e 55 4c 4c | (*thand| == NULL|
|000008e0| 29 20 7b 0d 09 09 2a 74 | 68 61 6e 64 20 3d 20 4e |) {...*t|hand = N|
|000008f0| 65 77 48 61 6e 64 6c 65 | 28 28 53 69 7a 65 29 20 |ewHandle|((Size) |
|00000900| 30 29 3b 0d 09 7d 0d 09 | 53 65 74 48 61 6e 64 6c |0);..}..|SetHandl|
|00000910| 65 53 69 7a 65 28 2a 74 | 68 61 6e 64 2c 20 28 6c |eSize(*t|hand, (l|
|00000920| 6f 6e 67 29 20 28 73 74 | 72 6c 65 6e 28 73 74 72 |ong) (st|rlen(str|
|00000930| 29 20 2b 20 31 29 29 3b | 0d 09 73 74 72 63 70 79 |) + 1));|..strcpy|
|00000940| 28 2a 2a 74 68 61 6e 64 | 2c 20 73 74 72 29 3b 0d |(**thand|, str);.|
|00000950| 7d 0d 0d 0d 0d 0d 23 69 | 6e 63 6c 75 64 65 20 3c |}.....#i|nclude <|
|00000960| 58 43 6d 64 47 6c 75 65 | 2e 69 6e 63 2e 63 3e 00 |XCmdGlue|.inc.c>.|
|00000970| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000980| 00 00 01 00 00 00 01 4c | 00 00 00 4c 00 00 00 32 |.......L|...L...2|
|00000990| 00 00 07 3c 00 00 00 00 | 00 00 00 00 00 00 00 00 |...<....|........|
|000009a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000009b0| 0a 54 4e 53 74 61 74 75 | 73 2e 63 01 02 00 00 00 |.TNStatu|s.c.....|
|000009c0| 50 61 72 74 53 49 54 78 | 00 00 00 00 00 00 00 00 |PartSITx|........|
|000009d0| 00 00 50 61 72 74 53 49 | 54 78 00 00 00 00 00 00 |..PartSI|Tx......|
|000009e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000009f0| 00 00 a9 8d 3a 8b 00 00 | 00 00 00 00 01 7e 00 00 |....:...|.....~..|
|00000a00| 00 00 00 00 00 00 00 00 | 00 00 02 96 25 00 00 00 |........|....%...|
|00000a10| 07 3c 0a 41 70 70 6c 65 | 53 68 61 72 65 00 00 00 |.<.Apple|Share...|
|00000a20| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000a30| 00 00 00 00 02 97 25 00 | 00 00 07 3c 0e 43 6c 69 |......%.|...<.Cli|
|00000a40| 70 62 6f 61 72 64 20 46 | 69 6c 65 00 00 00 00 00 |pboard F|ile.....|
|00000a50| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 03 1f |........|........|
|00000a60| 25 00 00 00 07 3c 06 63 | 6f 72 76 75 73 00 00 00 |%....<.c|orvus...|
|00000a70| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000a80| 00 00 00 48 00 09 4d 6f | 6e 61 63 6f 00 fa 00 00 |...H..Mo|naco....|
|00000a90| 00 00 04 1c 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000aa0| 00 00 00 00 00 00 00 06 | 00 04 00 29 00 02 01 85 |........|...)....|
|00000ab0| 02 02 00 29 00 02 01 85 | 02 02 a2 2d 6e 04 00 00 |...)....|...-n...|
|00000ac0| 01 8b 00 00 01 92 00 00 | 01 38 01 00 00 00 01 00 |........|.8......|
|00000ad0| 00 00 01 4c 00 00 00 4c | 00 00 00 32 00 33 4e 14 |...L...L|...2.3N.|
|00000ae0| 05 84 00 00 00 1c 00 32 | 00 00 4d 50 53 52 00 00 |.......2|..MPSR..|
|00000af0| 00 0a 03 ed ff ff 00 00 | 00 00 00 34 87 b0 00 00 |........|...4....|
+--------+-------------------------+-------------------------+--------+--------+